home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00199_Script_199 < prev    next >
Text File  |  1998-06-22  |  2KB  |  113 lines
  1. -- For BOX
  2. -- ++++++++++++++++++++++++++++++++ BGM of BOX
  3. on aiffBOX
  4.     global gBOXnum
  5.  
  6.     if (gBOXnum = 2) or (gBOXnum = 4) or (gBOXnum = 6) then
  7.         aiffSound(4)
  8.     else
  9.         aiffSound(3)
  10.     end if
  11. -- ++++++++++++++++++++++++++++++++ initialize of BOX
  12. on initBOX
  13.     global gBOXnum
  14.     global gPathItem
  15.  
  16.     cursor 4
  17.  
  18.     aiffBOX()
  19.  
  20.     chgScene("PL-000", the frame + 1, gPathItem & "BG" & string(gBOXnum) & "00")
  21.  
  22.     puppetSprite 20, TRUE
  23.     set the visibility of sprite 20 to FALSE
  24.     upDateStage
  25.     cursor -1
  26.  
  27. -- ++++++++++++++++++++++++++++++++ termination of BOX
  28. on termBOX mode
  29.     global gBOXnum
  30.  
  31.     if (gBOXnum = mode) then
  32.         return
  33.         exit
  34.     end if
  35.  
  36.     cursor 4
  37.     erasePictBOX()
  38.  
  39.     if (mode = 0) then
  40.         go to frame "000"
  41.         exit
  42.     end if
  43.  
  44.     put mode into gBOXnum
  45.     go to frame "BOX"
  46.  
  47. -- ++++++++++++++++++++++++++++++++ compute number of box mat (4 * 7)
  48. on numOfBoxMat
  49.     put mouseH() into H
  50.     put mouseV() into V
  51.     put the left of sprite clickOn() into L
  52.     put the top of sprite clickOn() into T
  53.     put (H - L) / 72 into hBlock
  54.     put (V - T) / 64 into vBlock
  55.     put (H - L) / 8 into hNG
  56.     put (V - T) / 8 into vNG
  57.  
  58.     if hBlock > 3 then
  59.         put 3 into hBlock
  60.     end if
  61.  
  62.     if hBlock < 0 then
  63.         put 0 into hBlock
  64.     end if
  65.  
  66.     if vBlock > 6 then
  67.         put 6 into vBlock
  68.     end if
  69.  
  70.     if vBlock < 0 then
  71.         put 0 into vBlock
  72.     end if
  73.  
  74.     if (hNG mod 9) = 8 then
  75.         return (0)
  76.     end if
  77.  
  78.     if (vNG mod 8) = 7 then
  79.         return(0)
  80.     end if
  81.  
  82.     put ((vBlock * 4) + hBlock)  + 1 into vMat
  83.     return(vMat)
  84.  
  85. -- ++++++++++++++++++++++++++++++++ display Picture in BOX
  86. on pictBOX
  87.     global gBOXnum
  88.     global gPathLine
  89.     global gpathPict
  90.  
  91.     put numOfBoxMat() into vNum
  92.  
  93.     if vNum = 0 then
  94.         exit
  95.     end if
  96.  
  97.     put "PIC.LIST" & string(gBOXnum) into vLIST
  98.  
  99.     put item 2 of line vNum of field vLIST into vPorL
  100.  
  101.     if vPorL = "X" then
  102.         exit
  103.     end if
  104.  
  105.     put value(item 4 of line vNum of field vLIST) into vTyp
  106.     if vPorL = "P" then    
  107.         put gPathPict & "P" & (item 3 of line vNum of field vLIST) into vName
  108.     else
  109.         put gPathLine & "L" & (item 3 of line vNum of field vLIST) into vName
  110.     end if
  111.  
  112.     dispPictBOX(vName, vTyp)
  113.